' {$STAMP BS2}

'Program 1.3, Simple Heater using StampPlot Lite
'Configure StampPlot Lite
PAUSE 500
DEBUG "!SPAN 50,150",CR
DEBUG "!TMAX 60",CR
DEBUG "!PNTS 500",CR
DEBUG "!TITL Simple Heater Control",CR
DEBUG "!SHFT ON",CR
DEBUG "!TSMP ON",CR
DEBUG "!PLOT ON",CR
DEBUG "!RSET",CR


LED1    VAR   OUT4
RC      CON   7
Temp    VAR   Word

OUTPUT 4
LED1 = 1

Main:
  GOSUB ReadTemp
  GOSUB CheckTemp
  PAUSE 250
GOTO Main

ReadTemp
  HIGH RC
  PAUSE 10
  RCTIME RC, 1, Temp
  Temp = Temp/30

  DEBUG DEC TEMP,CR
  DEBUG IBIN LED1,CR
RETURN

CheckTemp:

  IF (Temp > 100) OR (LED1 = 1) THEN CheckOff
  LED1 = 1
  DEBUG "The Heater Energized",CR
  DEBUG "!USRS The heater is energized!",CR

CheckOff:
  IF (Temp < 120) OR (LED1 = 0) THEN CheckDone
  LED1 = 0
  DEBUG "The heater de-energized", CR
  DEBUG "!USRS The heater is de-energized!",CR
CheckDone:
RETURN